home *** CD-ROM | disk | FTP | other *** search
/ Aminet 19 / Aminet 19 (1997)(GTI - Schatztruhe)[!][Jun 1997].iso / Aminet / gfx / board / CGraphX223u.lha / CyberUpdate2.23 / CyberGraphX_Update next >
Text File  |  1997-02-27  |  43KB  |  946 lines
  1. ;*****************************************************************************
  2. ;    ______        __                  ______                     __  __   __
  3. ;   / __  /       / /                 / __  /      Update        / /  \ \ / /
  4. ;  / /  -'__  __ / /___ ______ _____ / /_ -'_____ ______ ______ / /__  \ \ /
  5. ; / /     \ \/ // __  // ____// .__// // \ / .__// __  // __  // __  / /  /
  6. ;/ /___    \  // /_/ // __/_ / /   / /_/ // /   / __  // /_/ // / / / / \ \
  7. ;\____/    / //_____//_____//_/   /_____//_/   /_/ /_// ____//_/ /_/ /_/ \_\
  8. ;         /_/                                        / /
  9. ;                                                   /_/
  10. ; Domino PicassoII Spectrum Piccolo Z2/3 Picasso II+ RetinaZ3 Cybervision 
  11. ; PiccoloSD64 A2410 DraCoAltais
  12. ;
  13. ; CyberGraphX Update Installer Copyright ©1994,1995,1996,1997 by Robert C. Reiswig 
  14. ; $VER: Version_2.23d (Feb-27-1997)
  15. ; For use with PD and Registered CyberGraphX Only
  16. ;--------------------------------------------------------------------------------
  17. ; Installer suggestions, problems or changes: vgr@best.com
  18. ;********************************************************************************
  19.  
  20. ;********************************************************************************
  21. ; Cyber Release & Boards
  22. ;********************************************************************************
  23. (set #cyberver "2.23")
  24. (set NoBoard 0)
  25. (set whereback "SYS:Storage")
  26. (message (cat "\nCyberGraphX V" #cyberver "\n~~~~~~~~~~~~~~~~~~\n"
  27.               "CyberVision64\n\nSpectrum\n\nDomino & A2410\n\n"
  28.               "DraCo Altais & Retina BLT Z3\n\nPiccolo & Piccolo SD64\n\nPicasso II & Picasso II+"
  29.          )
  30. )
  31.  
  32. (welcome)
  33. ;********************************************************************************
  34. ; Read All System information
  35. ;********************************************************************************
  36. (set cpu (database "cpu")) (if (> (exists ("sys:libs/68060.library")) 0) (set cpu "68060") )
  37. (set vblank (database "vblank")) (set graphmem (database "graphics-mem"))
  38. (set totmem (database "total-mem")) (set osver (/ (getversion "LIBS:version.library") 65536))
  39. (if (= vblank "60") ((set blank "NTSC")) ((set blank "PAL")))
  40. (set fastmem (- totmem graphmem))
  41. ( if (= osver 37) ( (set workbench "2.0")) ( if (= osver 38) ( (set workbench "2.1"))
  42. ( if (= osver 39) ( (set workbench "3.0")) ( if (= osver 40) ( (set workbench "3.1"))
  43. ( if (= osver 41) ( (set workbench "3.2")) )))))
  44. (set CyberDrawer "SYS:")  (set were "sys")
  45. (set BackDirText "ram:") (set whereback "ram:")
  46. (set pick 0)
  47.  
  48. ;********************************************************************************
  49. ; For some reason these seem to get lost
  50. ;********************************************************************************
  51. (if (< (exists "env:cybergraphics") 2) (makedir "env:cybergraphics") )
  52. (if (< (exists "envarc:cybergraphics") 2) (makedir "envarc:cybergraphics") )
  53.  
  54. (if (> (exists ("devs:monitors/Spectrum")) 0)    (set #BGuess 1)  )
  55. (if (> (exists ("devs:monitors/Piccolo")) 0)     (set #BGuess 2)  )
  56. (if (> (exists ("devs:monitors/Domino")) 0)      (set #BGuess 3)  )
  57. (if (> (exists ("devs:monitors/RetinaZ3")) 0)    (set #BGuess 4)  )
  58. (if (> (exists ("devs:monitors/PiccoSD64")) 0)   (set #BGuess 5)  )
  59. (if (> (exists ("devs:monitors/A2410")) 0)       (set #BGuess 7)  )
  60. (if (> (exists ("devs:monitors/CyberVision")) 0) (set #BGuess 6)  )
  61. (if (> (exists ("devs:monitors/A2410")) 0)       (set #BGuess 7)  )
  62. (if (> (exists ("devs:monitors/DraCoAltais")) 0) (set #BGuess 8)  )
  63. (if (> (exists ("devs:monitors/Merlin")) 0)      (set #BGuess 9)  )
  64. (if (> (exists ("devs:monitors/Picasso")) 0)     (set #BGuess 0)  )
  65.  
  66. ;********************************************************************************
  67. ;English Strings
  68. ;********************************************************************************
  69. (set #By (cat "\n\nCyberGraphX\n\nRelease Version " #cyberver "\n\n\n\n"
  70.               "by:\n\nVision Factory Development"
  71.  
  72.               ;"\n\n\nInstallers & Versions By:\n Robert Reiswig - rcr@netcom.com"
  73.          )
  74. )
  75. (set #MinReqOS (cat "The following are the MINIMUM REQUIREMENTS!\n"
  76.                     "~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n"
  77.                     "Kickstart 3.x, **You only have " workbench "**\n\n"
  78.                     "PicassoII in linear mode *not segmented*\n\n"
  79.                     "68020 or higher\n\n"
  80.                     "2 MB of fast memory"
  81.                )
  82. )
  83. (set #MinReqCp (cat "The following are the MINIMUM REQUIREMENTS!\n"
  84.                     "~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n"
  85.                     "68020 or higher, **You only have " cpu "**\n\n"
  86.                     "PicassoII in linear mode *not segmented*\n\n"
  87.                     "Kickstart 3.x\n\n"
  88.                     "2 MB of fast memory"
  89.                )
  90. )
  91. (set #SysInfo (cat "Basic System Check, This Machine Has\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  92.                    " \"" workbench "\" Version of OS\n\n"
  93.                    " \"" cpu "\" Processor\n\n "
  94.                    " \"" blank "\" Machine\n\n"
  95.                    " \"" graphmem  "\" Total Free Chip Memory\n\n"
  96.                    " \"" fastmem  "\" Total Free Fast Memory\n\n  \"" totmem "\" Total Free Memory\n\n"
  97.               )
  98. )
  99. (set #WillInstall "\n\n\n\nThis installer will Move OR Delete the Current Graphic Boards's Drivers.  Please read the Docs if you have any question!\n")
  100. (set #NeedChangeTool (cat "Currently your 'village.library'\n-The monitor file-\nis set to: "
  101.                           MonitorIS "kHz\n\nIt must be set to 'Custom'!\nYou must first use the PicassoMode program\n"
  102.                           "that came with your Picasso II to create a custom monitorfile. Then you need to change "
  103.                           "the tooltype to CUSTOM. Please read the Docs for PicassoMode to do this!!!\n\n"
  104.                           "YOU MUST DO THIS NOW!"
  105.                      )
  106. )
  107. (set #BackUpFiles "BackUp the Files")
  108. (set #DeleteFiles "Delete the Files")
  109. (set #ask-BackOrDelete "The Installer will Back up the Current Boards System software, if you select, to: ")
  110. (set #ask-MODEFILE "Which modefile should be installed ?")
  111. (set #15KHZ "15khz maximum")
  112. (set #31KHZ "31khz maximum")
  113. (set #35KHZ "35khz maximum")
  114. (set #38KHZ "38khz maximum")
  115. (set #48KHZ "48khz maximum")
  116. (set #57KHZ "57khz maximum")
  117. (set #64KHZ "64khz maximum")
  118. (set #wishtoinstall "Do you wish to install any of the following?")
  119. (set #order "Order Form")
  120. (set #guide "AmigaGuide File")
  121. (set #devdocs  "Developer Documentation")
  122. (set #versions "Versions - Shows Vers of CyberGraphX")
  123. (set #WhereStuffDir "Please select where you wish to put them.\n(A directory called \"CyberGraphX\" will be created there!)")
  124. (set #SetEnv "SetEnv - Sets/Changes Env Vars")
  125. (set #Comming (cat "\nCOMING! (Planned Features)\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  126.                    "15/16/24 bit extension of the "normal" graphics.library, that means that "
  127.                    "you can open 24bit screens as standard intuition screens and that you "
  128.                    "can use all graphics.library functions on them as before. (with some "
  129.                    "limitations of course because of the missing color lookup table)\n\n"
  130.                    "Application to adjust the monitor parameters"
  131.               )
  132. )
  133. (set #cpup2c (cat "CPUP2C\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  134.                   "By setting this variable, the planar-to-chunky conversion "
  135.                   "will be done by the CPU (in contrast to the blitter-conversion) "
  136.                   "Therefore the ugly-looking "planar" blitting-effects are gone, "
  137.                   "but the software-conversion is slower. Do you wish to Enable this feature?"
  138.              )
  139. )
  140. (set #hirescrsr (cat "HIRESCRSR\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  141.                      "By setting this variable, the Lores-Sprites on non-AA-machines "
  142.                      "become Hires-sprites (they are no longer doubled by "
  143.                      "the CyberGraphX-Software). "
  144.                      "This variable is identical to the tooltype HIRESSPRITE "
  145.                      "of older Picasso-monitor files."
  146.                 )
  147. )
  148. (set #hide15bit (cat "HIDE15BIT\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  149.                      "By setting this variable, you can switch off 15bit modes to reduce "
  150.                      "screenmode list length. The Modes are still available but hidden."
  151.                 )
  152. )
  153. (set #alertemu  (cat "ALERTEMU\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  154.                      "By setting this variable, DisplayAlert(), (The Screens you get when the machine crashes.) "
  155.                      "will be placed on an CyberGraphX screens."
  156.                 )
  157. )
  158. (set #ask-driver (cat "Select The Driver(s) you wish to install."))
  159. (set #CyberREG (cat "If you have a Registered version of CyberGraphX installed or you are running a CyberVision board, "
  160.                     "please select 'Quick Update'. "
  161.                )
  162. )
  163. (set #firstTime "First time install")
  164. (set #PDInstalled "PD version Installed")
  165. (set #REGInstalled "Registered version Installed")
  166. (set #quickupdate "Quick Update (New Libs & Drivers only)")
  167. (set #cvmode "CVMode (Screen Mode Creator)")
  168. (set #WhereReadME "Please select where you wish to put the ReadMe.")
  169. (set #NoUp    "No, Don't update")
  170. (set #OnlyNew "Yes, Only if newer")
  171. (set #YesAll  "Yes, No matter what")
  172. (set #checkcustom (cat "\nThe installer will now check\n"
  173.                        "'SYS:Expansion/village.library.info'\n"
  174.                        "To see if the tool type MONITOR is set to CUSTOM.\n\n"
  175.                        "It would be best to set this to custom so that when you install "
  176.                        "the REG version 'ConvPicassoModes' can convert over all you Sceeen modes "
  177.                        "that you currently use correctly.  If you get an error message you can just skip it."
  178.                   )
  179. )
  180. (set #ask-Amax "Do you wish to install the CyberGraphX Amax Driver? (It only does 1024x768x256)")
  181. (set #where-Amax "Where do you wish to Install the Amax Driver?\n(The default is \"Work:\")")
  182. (set #changes (cat "\nStarting with this release, CyBERgraphics now has a new and better name:"
  183.                    "\n\n\nCyberGraphX\n\n\n"
  184.                    "Also starting with this release the Version Numbering has changed. This would "
  185.                    "have been 40.50 but will now be called 2.0 of CyberGraphX. This has been done "
  186.                    "to remove the link between the cybergraphics.library version and the CyberGraphX package version!"
  187.               )
  188. )
  189. (set #AboutQuickie (cat "\nThis will ONLY UPDATE the CyberGraphX libraries and Monitor Driver(s).\n\n"
  190.                         "It is meant for CyberGraphX users. This includes Registered, Non-Registered CyberGraphX users along with CyberVision owners!\n\n"
  191.                         "It will update your system to version " #CyberVer
  192.                         " of the CyberGraphX package.\n\nIf this is your first time Installing CyberGraphX "
  193.                         "then you will need to get the _complete_ Archive first!"
  194.                     )
  195. )
  196. (set #yes "Yes - On")
  197. (set #no "No - Off")
  198. (set #youwantto "You want to set:")
  199. (set #to "To:")
  200. (set #nochip    (cat "NOCHIPSCREEN\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  201.                      "By setting this variable, 8 bit deep screens are always opened "
  202.                      "in Fast memory. Useful with 1MB chip systems but you should "
  203.                      "avoid it with 2MB chip, because the older method is more "
  204.                      "compatible (no taglist changes etc.) "
  205.                 )
  206. )
  207. (set #planes2  (cat "PLANES2FAST\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  208.                      "With this option on, non displayable planar bitmaps "
  209.                      "are allocated in fast memory. This options speeds up "
  210.                      "handling of planar bitmaps but could lead to problems "
  211.                      "with amiga graphics which insist on planar graphics "
  212.                      "placed in chip memory. Take care when using this option."
  213.                 )
  214. )
  215. (set #nopass   (cat "NOPASSTHROUGH\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  216.                     "If this option is enabled, the monitor switch on every "
  217.                     "CyberGraphX supported board is deactivated. This option is "
  218.                     "required for multi monitor systems."
  219.                 )
  220. )
  221. (set #keepamiga (cat "KEEPAMIGAVIDEO\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  222.                      "If this option is disabled, everytime a CyberGraphX display "
  223.                      "becomes frontscreen, Amiga display DMA is switched off in order "
  224.                      "to increase chipmem access speed. You can avoid this by enabling "
  225.                      "this option. "
  226.                 )
  227. )
  228. (set #whatboard (cat "\nPlease Select the Graphics Board you wish to update CyberGraphX Monitor File for:\n"))
  229. (set #updatecorrect "\n\n\nThe Monitor file updated correctly!\n\nThe installer created a backup of the old\n Monitor File in:\n\n")
  230. (set #updatePD "\n\n\nThe Monitor Updater is for Registered Users only.\n\nThe installer created a backup of the old\n Monitor File in:\n\n")
  231. (set #updateBad "\n\n\nThere has been an error in the Monitor File update.\n\nThe Monitor File is corrupt, bad, renamed or it is missing. Please Check this!\n")
  232. (set #updateNoUpdate "\n\n\nCurrently there is no Updater for your Monitor File.")
  233. (set #updateNoUpdate1 "\n\n\nCurrently there is no Updater for your Monitor File.\n\nThe installer created a backup of the old\n Monitor File in:\n\n")
  234. (set #NoUp     "No, Don't update")
  235. (set #OnlyNew  "Yes, Only if newer")
  236. (set #OnlyNewB "Yes, Only if newer with backup")
  237. (set #YesAll   "Yes, No matter what with no backup")
  238. (set #thefollowing "The following have been backed up to\n\n")
  239. (set #cybergfx "\n\nNot backed up - cybergraphics.library")
  240. (set #cyberint "\n\nNot backed up - cyberintuition.library")
  241. (set #cyberlayers "\n\nNot backed up - cyberlayers.library")
  242. (set #cybervil "\n\nNot backed up - vilintuisup.library")
  243. (set #gtlay "\n\nNot backed up - gtlayout.library")
  244. (set #cvmode "CVMode - Screen Creator V1.5")
  245. (set #cyberprefsx "CyberPrefsX - Set/Explain/Change Settings")
  246. (set #tools "\nWhat CyberGraphX Tools do you with to install?\n")
  247. (set #Where "Where do you wish to install ")
  248. (set #wherecvm "CVMode? If there is a copy already there a backup of it will be created!")
  249. (set #wherecpx "CyberPrefsX? If there is a copy already there a backup of it will be created!")
  250. (set #whatboard (cat "\nPlease Select the Graphics Board you are using CyberGraphX on:\n"))
  251. (set #AltaisMon (cat "\n\nIn order to get the latest CyberGraphX Monitor driver "
  252.                     "for the Altais you must contact:\n\n MacroSystem Computer GmbH\n"
  253.                     "Friedrich-Ebert-Str. 85\n58454 Witten\nTel: +49 (2302) 80391\n"
  254.                     "Fax: +49 (2302) 80884"
  255.                 )
  256. )
  257. ;(set #YesBackup "Back up Monitor file")
  258. ;(set #NoBackup "Do Not Back up Monitor file")
  259. (set #hasbeen "Has been Backed Up to")
  260. (set #wherelibs "Where are your CyberGraphX libraries located? The default is 'SYS:Libs'")
  261. (set #backlibs "Do you wish to back up the Current CyberGraphX libraries that are currently installed on your system?")
  262. (set #nobackup "No, Do not BackUp CGraphX ")
  263. (set #yesbackup "Yes, BackUp CGraphX ")
  264. (set #wherebacklibs "Where do you wish to BackUp the CyberGraphX Libs? The Default is 'SYS:Storage'.  If a directory Called 'CyberGraphX' is not there one will be created.")
  265. (set #wherebackmon "Where do you wish to BackUp the CyberGraphX Monitor File? The Default is 'SYS:Storage'.  If a directory Called 'CyberGraphX' is not there one will be created.")
  266. (set #updatelib "Update library")
  267. (set #noupdatelib "Do not update library")
  268. (set #noroom "\n\nThere was no room on SYS: for\n\n")
  269. (set #filesum "(Backup file = <MonitorFileName>.<CheckSum>)")
  270. (set #monitorfile "monitor file.")
  271. (set #mc4d "MAXON Cinema4D V3")
  272. (set #quickchangeenv "Quick Set/Change Environment Variables ")
  273. (set #currenv "\nCurrent Settings for Environment Variables\n")
  274. (set #nodraco "\n\n\nNOTE\n\nThe libraries in this Update do not work with the DraCoAltais.  If you are using a DraCoAltais you should 'Abort Install' now.")
  275. (set boardback "\nNone")
  276. (set #CyberBackUp-UnInstall "CyberBackUp-UnInstall")
  277. (set #wherebackupU "CyberBackUp-UnInstall? If there is a copy already there a backup of it will be created!")
  278. (set #gettingsum "\n\nGetting Checksum")
  279. ;---
  280. (set #yes1 "Yes")
  281. (set #no1 "No, Done")
  282. (set #boardmore "\nWould you like to Update another CyberGraphX Monitor file?\n")
  283.  
  284. ;********************************************************************************
  285. ;German Strings
  286. ;********************************************************************************
  287. (if (= @language "deutsch")
  288. (
  289.  
  290. (set #By (cat "\n\nCyberGraphX Software\nVersion " #cyberver "\n\n\n\n"
  291.               "Software von:\n\nVision Factory Development"
  292.               ;"\n\n\nInstallerskript von:\n Robert Reiswig - rcr@netcom.com"
  293.          )
  294. )
  295. (set #MinReqOS (cat "Folgendes sind die Minimalanforderungen !\n"
  296.               "~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n"
  297.                   "Kickstart 3.x, **Sie haben nur " Workbench "**\n\n"
  298.                   "PicassoII im linear Modus *nicht segmentiert*\n\n"
  299.                   "68020 oder höher\n\n"
  300.                   "2 MB FAST Ram"
  301.              )
  302. )
  303. (set #MinReqCP  (cat "Folgendes sind die Minimalanforderungen!\n"
  304.                    "~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n"
  305.                    "68020 oder höher, **Sie haben nur eine " cpu "**\n\n"
  306.                    "PicassoII im linear Modus *nicht segmentiert*\n\n"
  307.                    "Kickstart 3.x\n\n"
  308.                    "2 MB FAST Ram"
  309.               )
  310. )
  311. (set #SysInfo (cat "Minimaler System Check, Dieser Rechner hat\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  312.                    " Version \"" Workbench "\" des OS\n\n"
  313.                    " \"" cpu "\" Prozessor\n\n "
  314.                    " \"" blank "\" Gerät\n\n"
  315.                    " \"" graphmem  "\" freier Chip Speicher\n\n"
  316.                    " \"" fastmem  "\" freies Fast RAM\n\n  \"" totmem "\" freies RAM gesamt\n\n"
  317.               )
  318. )
  319. (set #WillInstall "\n\n\n\nDieses Installerskript sichert oder löscht die aktuellen Grafikkarten Treiber.  Bitte lesen sie die Guidedatei bei Fragen!\n")
  320. (set #NeedChangeTool (cat "Currently your 'village.library'\n-The monitor file-\nis set to: "
  321.                           MonitorIS "kHz\n\nIt must be set to 'Custom'!\nYou must first use the PicassoMode program\n"
  322.                           "that came with your Picasso II to create a custom monitorfile. Then you need to change "
  323.                           "the tooltype to CUSTOM. Please read the Docs for PicassoMode to do this!!!\n\n"
  324.                           "YOU MUST DO THIS NOW!"
  325.                      )
  326. )
  327. (set #ask-MODEFILE "Welche Mode-Definitionsdatei soll aktiviert werden ?")
  328. (set #15KHZ "Definition mit 15khz max. HFrequenz")
  329. (set #31KHZ "Definition mit 31khz max. HFrequenz")
  330. (set #35KHZ "Definition mit 35khz max. HFrequenz")
  331. (set #38KHZ "Definition mit 38khz max. HFrequenz")
  332. (set #48KHZ "Definition mit 48khz max. HFrequenz")
  333. (set #57KHZ "Definition mit 57khz max. HFrequenz")
  334. (set #64KHZ "Definition mit 64khz max. HFrequenz")
  335. (set #wishtoinstall "Wollen Sie folgende Dateien installieren ?")
  336. (set #order "Bestellformular")
  337. (set #guide "AmigaGuide Datei")
  338. (set #devdocs  "Entwickler Dokumentation")
  339. (set #versions "Versions - Zeigt die CyberGFX Versionen")
  340. (set #WhereStuffDir "Bitte wählen sie einen Zielpfad.\n(Ein Verzeichnis \"CyberGraphX\" wird automatisch erstellt!)")
  341. (set #cpup2c (cat "CPUP2C\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  342.                   "Wenn Sie diese Variable setzen, wird die Planar-nach-Chunky Konvertierung "
  343.                   "von der CPU erledigt (im Gegensatz zur Blitter-Konvertierung) "
  344.                   "Damit sind die teilweise merkwürdig aussehenden "planar" Bliteffekte verschwunden, "
  345.                   "aber die CPU-Konvertierung ist langsamer. Wollen Sie diese Möglichkeit aktivieren ?"
  346.              )
  347. )
  348. (set #hirescrsr (cat "HIRESCRSR\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  349.                      "Wenn diese Variable aktiviert ist, werden Lores-Sprites auf nicht-AGA-Geräten "
  350.                      "zu Hires-sprites (Sie werden nicht mehr von der CyberGraphX Software "
  351.                      "verdoppelt). "
  352.                      "(Diese Variable ist identisch mit dem Tooltype HIRESSPRITE "
  353.                      "in der alten Picasso software)."
  354.                 )
  355. )
  356. (set #NoUp    "Nein, nicht erneuern")
  357. (set #OnlyNew "Ja, nur wenn neuer")
  358. (set #YesAll  "Ja, egal was installiert ist")
  359. (set #hide15bit (cat "HIDE15BIT\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  360.                      "Wenn diese Variable aktiviert ist, werden die 15Bit Modi deaktiviert, um "
  361.                      "die Screenmodeliste zu verkuerzen. Die Modes sind immer noch da, aber nicht sichtbar."
  362.                 )
  363. )
  364. (set #alertemu  (cat "ALERTEMU\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  365.                      "Ist diese Variable aktiviert, wird DisplayAlert(), (Die Routine, die eine Guru-Box erzeugt.) "
  366.                      "auf einen CyberGraphX Bildschirm umgeleitet."
  367.                 )
  368. )
  369. (set #ask-driver (cat "Bitte wählen Sie die Treiber, die installiert werden sollen."))
  370. (set #CyberREG (cat "Haben Sie bereits eine Version von CyberGraphX installiert? Wenn das so ist, ueberschreibt die Installation die Monitordatei nicht ! Sie muessen diese Frage richtig beantworten!"))
  371. (set #firstTime "Erstinstallation")
  372. (set #PDInstalled "PD version installiert")
  373. (set #REGInstalled "Registrierte Version installiert")
  374. (set #quickupdate "Schnelles Update (Nur neue Libraries & Treiber)")
  375. (set #cvmode "CVMode (Screen Mode Programm)")
  376. (set #WhereReadME "Bitte waehlen Sie den Pfad, wo die LiesMich Datei hinkopiert werden soll.")
  377. (set #changes (cat "\nBeginnend mit dieser Veröffentlichung heißt das CyBERgraphics System nun anders:"
  378.                    "\n\n\nCyberGraphX\n\n\n"
  379.                    "Ebenso hat sich die Versionsnummernvergabe geändert. Es hätte wie bisher eigentlich "
  380.                    "40.50 sein müssen. Ab sofort ist es aber die Version 2.0 von CyberGraphX. Damit ist endlich der "
  381.                    "Zusammenhang zwischen der Version der cybergraphics.library und dem CyberGraphX Paket aufgehoben"
  382.               )
  383. )
  384. (set #AboutQuickie (cat "\n\nDieses Paket erneuert NUR die CyberGraphX libraries.\n\n"
  385.                         "Es ist sowohl für registrierte als auch unregistrierte CyberGraphX Benutzer gedacht!\n\n"
  386.                         "Es updated Ihr System auf Version " #CyberVer
  387.                         " der CyberGraphX libraries.\n\nWenn Sie CyberGraphX zum ersten Mal installieren, "
  388.                         "brauchen Sie das _komplette_ Archiv vom Aminet!"
  389.                     )
  390. )
  391. (set #nochip    (cat "NOCHIPSCREEN\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  392.                      "Wird diese Option aktiviert, werden CyberGraphX 256-Farben Bildschirme "
  393.                      "immer direkt im FastRAM geöffnet. Das ist sinnvoll bei Rechnern mit 1MB "
  394.                      "ChipRAM, sollte aber mit 2MB ChipRAM Systemen vermieden werden, da die "
  395.                      "alte Methode in einigen Punkten kompatibler ist."
  396.                 )
  397. )
  398.  
  399.  
  400. (set #planes2  (cat "PLANES2FAST\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  401.                      "Ist diese Option aktiv, werden nicht darzustellende "
  402.                      "planare BitMaps im FastRAM angelegt. Diese Option "
  403.                      "beschleunigt die Bearbeitung von planaren BitMaps aber "
  404.                      "kann zu Problemen mit Amiga Originalgrafik führen, wenn "
  405.                      "diese davon ausgeht, dass planare BitMaps im ChipRAM liegen. "
  406.                      "Seien Sie vorsichtig mit der Aktivierung dieser Option."
  407.                 )
  408. )
  409.  
  410. (set #nopass   (cat "NOPASSTHROUGH\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  411.                     "Wenn diese Option aktiviert ist, wird der Monitorumschalter "
  412.                     "auf jeder von CyberGraphX unterstützten Karte deaktiviert. "
  413.                     "Diese Option ist für Mehr-Monitor Systeme erforderlich. "
  414.                 )
  415. )
  416.  
  417. (set #keepamiga (cat "KEEPAMIGAVIDEO\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  418.                      "Ist diese Option nicht aktiv, wird jedesmal, wenn "
  419.                      "ein CyberGraphX Bildschirm nach vorne kommt, die Amiga Bildschirm "
  420.                      "DMA abgeschaltet, um den Zugriff auf das ChipMemory zu beschleunigen. "
  421.                      "Dies kann durch Aktivierung der Option vermieden werden. "
  422.                 )
  423. )
  424.  
  425. (set #whatboard (cat "\nBitte wählen Sie die Grafikkarte, deren Monitordatei Sie erneuern möchten:\n"))
  426. (set #updatecorrect "\n\n\nDie Monitordatei wurde erneuert!\n\nDas Installskript kopierte eine Sicherheitskopie der alten Datei nach:\n\n")
  427. (set #updatePD "\n\n\nDas Erneuern der Monitor funktioniert nur mit registrierten Monitordateien!!\n\nDas Installskript kopierte eine Sicherheitskopie der alten Datei nach:\n\n")
  428. (set #updateBad "\n\n\nEs ist ein Fehler aufgetreten beim Erneuern.\n\nDie Monitordatei ist entweder defekt, umbenannt oder fehlt. Bitte überprüfen Sie das!\n")
  429. (set #updateNoUpdate "\n\n\nEs existiert kein Updater für diesen Monitortreiber in diesem Archiv.")
  430. (set #updateNoUpdate1 "\n\n\nEs existiert kein Updater für diesen Monitortreiber in diesem Archiv.\n\nDas Installskript kopierte eine Sicherheitskopie der alten Datei nach:\n\n")
  431. (set #yes "Ja")
  432. (set #no "Nein")
  433. (set #youwantto "Sie wollen die Änderung von:")
  434. (set #to "auf:")
  435. (set #NoUp     "Nein, nicht erneuern")
  436. (set #OnlyNew  "Ja, nur wenn neuer")
  437. (set #OnlyNewB "Ja, nur wenn neuer + Backup")
  438. (set #YesAll   "Ja, egal welche Version")
  439. (set #thefollowing "Folgende Dateien wurden gesichert in\n\n")
  440. (set #cybergfx "\n\nNicht gesichert - cybergraphics.library")
  441. (set #cyberint "\n\nNicht gesichert - cyberintuition.library")
  442. (set #cyberlayers "\n\nNicht gesichert - cyberlayers.library")
  443. (set #cybervil "\n\nNicht gesichert - vilintuisup.library")
  444. (set #gtlay "\n\nNicht gesichert - gtlayout.library")
  445. (set #cvmode "CVMode - Screenedit Tool V1.5")
  446. (set #cyberprefsx "CyberPrefsX - Setze/Erkläre/Ändere Werte")
  447. (set #tools "\nWelche CyberGraphX Tools möchten Sie installieren?\n")
  448. (set #Where "Wohin möchten Sie das hininstallieren: ")
  449. (set #wherecvm "CVMode? Wenn es bereits existiert, wird ein Backup erstellt!")
  450. (set #wherecpx "CyberPrefsX? Wenn es bereits existiert, wird ein Backup erstellt!")
  451. (set #whatboard (cat "\nBitte wählen Sie die Grafikkarte, mit dem Sie CyberGraphX benutzen wollen:\n"))
  452. (set #AltaisMon (cat "\n\nUm den aktuellsten CyberGraphX Monitor Treiber für DraCoAltais "
  453.                     "zu bekommen, wenden Sie sich bitte an:\n\n MacroSystem Computer GmbH\n"
  454.                     "Friedrich-Ebert-Str. 85\n58454 Witten\nTel: +49 (2302) 80391\n"
  455.                     "Fax: +49 (2302) 80884"
  456.                 )
  457. )
  458. (set #YesBackup "Sicherung der Monitordateien")
  459. (set #NoBackup "Keine Sicherung der Monitordateien")
  460. (set #hasbeen "wurde gesichert nach")
  461. (set #wherelibs "Wo befinden sich die CyberGraphX libraries? Normal ist 'SYS:Libs'")
  462. (set #backlibs "Wollen sie ein Backup der aktuell auf Ihrem System befindlichen CyberGraphX libraries?")
  463. (set #nobackup "Nein, keine Sicherung der CGraphX ")
  464. (set #yesbackup "Ja, sichere alte CGraphX ")
  465. (set #wherebacklibs "Wohin sollen die CyberGraphX Libraries gesichert werden? Normal ist 'SYS:Storage'. Wenn ein Verzeichnis namens 'CyberGraphX' fehlt, wird eins erstellt.")
  466. (set #wherebackmon "Wohin soll die CyberGraphX Monitordatei gesichert werden? Normal ist 'SYS:Storage'. Wenn ein Verzeichnis namens 'CyberGraphX' fehlt, wird eins erstellt.")
  467. (set #updatelib "Library erneuern")
  468. (set #noupdatelib "Library nicht erneuern")
  469. (set #noroom "\n\nEs war kein Platz auf sys:\n\n")
  470. (set #filesum "(Backupdatei = <MonitorDatei>.<Pruefsumme>)")
  471. (set #monitorfile "Monitordatei.")
  472. (set boardback "Alten Monitor nicht gesichert.")
  473. (set #mc4d "MAXON Cinema4D V3")
  474. (set #quickchangeenv "Schnelles Setzen/Ändern der Umgebungsvariablen")
  475. (set #currenv "\nMomentane Einstellungen der Umgebungsvariablen\n")
  476. (set #nodraco "\n\n\nHinweis\n\nDie Libraries in diesem Update arbeiten nicht mit DraCo zusammen.  Wenn Sie einen DraCo benutzen, sollten Sie jetzt 'Abort Install' drücken.")
  477. (set boardback "\n(Keine Sicherung)")
  478. (set #CyberBackUp-UnInstall "CyberBackUp-UnInstall")
  479. (set #wherebackupU "CyberBackUp-UnInstall? Wenn bereits eine Kopie vorhanden ist, wird diese gesichert!")
  480. (set #gettingsum "\n\nErzeuge Prüfsumme")
  481. ;----
  482. (set #yes1 "Ja")
  483. (set #no1 "Nein, fertig")
  484. (set #boardmore "\nWollen Sie einen weiteren CyberGraphX Monitortreiber erneuern?\n")
  485.  
  486. )
  487. )
  488.  
  489. ;********************************************************************************
  490. ; Start Update
  491. ;********************************************************************************
  492. (message #by)
  493. (if (> (getversion "dracographics.library" (resident)) 0)  (message #nodraco) )
  494. (message #AboutQuickie)
  495.  
  496. ;*******************************************************************
  497. ;  ASK where cybergfx libs are
  498. ;*******************************************************************
  499. (set wherelibs   (askdir (prompt #wherelibs)
  500.              (help   #wherelibs)
  501.                   (default "SYS:Libs")
  502.          )
  503. )
  504.  
  505. ;*******************************************************************
  506. ;  BackUp Libs ?
  507. ;*******************************************************************
  508. (set back  (askchoice
  509.         (choices (cat #yesbackup "libraries.")  (cat #nobackup "libraries.") )
  510.         (prompt #backlibs)
  511.         (help #backlibs)
  512.                 (default 0)
  513.       )
  514. )
  515.  
  516. (set whereback "ram:")
  517.  
  518. (if (= back 0)
  519.    (set whereback   (askdir (prompt #wherebacklibs)
  520.                          (help   #wherebacklibs)
  521.                              (default "SYS:Storage")
  522.              )
  523.     )
  524. )
  525.  
  526. ;*******************************************************************
  527. ;  Make dirs for backup
  528. ;*******************************************************************
  529. (if (= back 0)
  530.  (
  531.   (set libsdest (tackon whereback "CyberGraphX"))
  532.   (if (< (exists libsdest) 2)  (makedir libsdest (infos)) )
  533.   (set libsdest (tackon whereback "CyberGraphX/libs"))
  534.   (if (< (exists libsdest) 2)  (makedir libsdest (infos)) )
  535.  )
  536. )
  537. ;*******************************************************************
  538. ;  Procedure to backup/copy libs
  539. ;*******************************************************************
  540. (procedure UpdateLib
  541.  
  542. (set vernum1 (getversion (tackon wherelibs #lib)) )
  543. (set ver1 (/ vernum1 65536))
  544. (set rev1 (- vernum1 (* ver1 65536) ) )
  545.  
  546. (set vernum2 (getversion (cat "libs/" #lib)) )
  547. (set ver2 (/ vernum2 65536))
  548. (set rev2 (- vernum2 (* ver2 65536) ) )
  549.  
  550. ;*** Check for SIZE and Version
  551. (if (= back 0)
  552.    (
  553.  
  554.      (set sizeneed (getsize (cat "libs/" #lib)) )
  555.      (set space (getdiskspace (cat (getdevice libsdest) ":")) )
  556.      (set ok 0)
  557.      (set ##ver (cat ver1 "." rev1) )
  558.      (set #cybertext (cat "\n\nNo room on " libsdest " for " #lib ##ver))
  559.  
  560.      (if (> space sizeneed)
  561.         (
  562.           (if (> (exists (tackon wherelibs #lib)) 0)
  563.            (copyfiles (source (tackon wherelibs #lib))
  564.                               (dest libsdest)
  565.                               (newname (cat #lib ver1 "." rev1))
  566.            )
  567.           )
  568.  
  569.  
  570.           ;(copylib (source (cat "libs/" #lib)) (dest wherelibs))
  571.           (set #cybertext (cat "\n\n" #lib ##ver))
  572.           (set ok 1)
  573.          )
  574.      )
  575.  
  576.      (if (= ok 0)
  577.       (
  578.                   (set #thenewer (cat #noroom #lib ##ver "\n\nThe newer\n\n" #lib ver2 "." rev2 "\n\nwas not copied over/updated to " wherelibs ) )
  579.        (if (= LAN 0) (set #thenewer (cat #noroom #lib ##ver "\n\nDie neuere\n\n" #lib ver2 "." rev2 "\n\nwurde nicht kopiert nach " wherelibs ) ) )  
  580.        (message #thenewer)
  581.       )
  582.      )
  583.  
  584.  
  585.    )
  586.  
  587. )
  588.  
  589. ;**** Copy new Libs
  590. (set #text2  (cat "'" #lib "'\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  591.                   "Version Currently Installed   : " ver1 "." rev1 "\n\n"
  592.                   "Version From Update Disk/File : " ver2 "." rev2 "\n\n"
  593.                   "Do you wish to install Version " ver2 "." rev2 " of the "
  594.                   "'" #lib "' from the Update Disk/File?"
  595.              )
  596. )
  597.  
  598.  
  599. (if (= @language "deutsch") ; ** German
  600.   (set #text2  (cat "'" #lib "'\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  601.                     "Im System installiert         : " ver1 "." rev1 "\n\n"
  602.                     "zu installierende Version     : " ver2 "." rev2 "\n\n"
  603.                     "Wollen Sie die neue Version " ver2 "." rev2 " von der "
  604.                     "'" #lib "' installieren?"
  605.                )
  606.   )
  607. )
  608.  
  609.  
  610.  
  611. (set pick (askchoice
  612.         (choices #updatelib #noupdatelib)
  613.         (prompt #text2)
  614.         (help #text2)
  615.                 (default pick)
  616.       )
  617. )
  618.  
  619.  
  620. (if (= pick 0) (copylib (source (cat "libs/" #lib )) (dest wherelibs)) )
  621.  
  622.  
  623. ) ;**** procedure UpdateLib END
  624.  
  625.  
  626. ;*******************************************************************
  627. ;  Set Vars for each time thru procedure UpdateLib
  628. ;*******************************************************************
  629. (set #lib "cybergraphics.library")  (UpdateLib) (set #cybergfx    #cybertext)
  630. (set #lib "cyberintuition.library") (UpdateLib) (set #cyberint    #cybertext)
  631. (set #lib "cyberlayers.library")    (UpdateLib) (set #cyberlayers #cybertext)
  632. (set #lib "vilintuisup.library")    (UpdateLib) (set #cybervil    #cybertext)
  633. (set #lib "gtlayout.library")       (UpdateLib) (set #gtlay       #cybertext)
  634.  
  635.  
  636. ;*******************************************************************
  637. ;  Let then know that has been backed up.
  638. ;*******************************************************************
  639. (if (= back 0)
  640.  (message (cat #thefollowing libsdest #cybergfx #cyberint #cyberlayers #cybervil #gtlay))
  641. )
  642. ;********************************************************************************
  643. ; Move #?monitor file from envarc: to envarc:CyberGraphics for newer Libraries
  644. ; This is here just for backup!
  645. ;********************************************************************************
  646. (if (< (exists "env:cybergraphics") 2) (makedir "env:cybergraphics") )
  647. (if (< (exists "envarc:cybergraphics") 2) (makedir "envarc:cybergraphics") )
  648.  
  649.  
  650. (if (< (exists ("EnvArc:CyberGraphics/PicassoMonitor"))  1)
  651.       (if (> (exists ("EnvArc:PicassoMonitor")) 0)
  652.          (copyfiles (source "EnvArc:PicassoMonitor") (dest "EnvArc:CyberGraphics") (infos) (optional nofail) )
  653.       )
  654. )
  655.  
  656. (if (< (exists ("EnvArc:CyberGraphics/PicassoMonitor")) 1)
  657.       (if (> (exists ("EnvArc:SpectrumMonitor")) 0)
  658.          (copyfiles (source "EnvArc:SpectrumMonitor") (dest "EnvArc:CyberGraphics") (infos) (optional nofail) )
  659.       )
  660. )
  661.  
  662. (if (< (exists ("EnvArc:CyberGraphics/PiccoloMonitor")) 1)
  663.       (if (> (exists ("EnvArc:PiccoloMonitor")) 0)
  664.          (copyfiles (source "EnvArc:PiccoloMonitor") (dest "EnvArc:CyberGraphics") (infos) (optional nofail) )
  665.       )
  666. )
  667.  
  668. (if (< (exists ("EnvArc:CyberGraphics/DominoMonitor")) 1)
  669.       (if (> (exists ("EnvArc:DominoMonitor")) 0)
  670.          (copyfiles (source "EnvArc:DominoMonitor") (dest "EnvArc:CyberGraphics") (infos) (optional nofail) )
  671.       )
  672. )
  673.  
  674.  
  675. (if (< (exists ("EnvArc:CyberGraphics/RetinaZ3Monitor")) 1)
  676.       (if (> (exists ("EnvArc:RetinaZ3Monitor")) 0)
  677.          (copyfiles (source "EnvArc:RetinaZ3Monitor") (dest "EnvArc:CyberGraphics") (infos) (optional nofail) )
  678.       )
  679. )
  680.  
  681. (if (< (exists ("EnvArc:CyberGraphics/PiccoSD64Monitor")) 1)
  682.       (if (> (exists ("EnvArc:PiccoSD64Monitor")) 0)
  683.          (copyfiles (source "EnvArc:PiccoSD64Monitor") (dest "EnvArc:CyberGraphics") (infos) (optional nofail) )
  684.       )
  685. )
  686.  
  687. (if (< (exists ("EnvArc:CyberGraphics/CyberVisionMonitor")) 1)
  688.       (if (> (exists ("EnvArc:CyberVisionMonitor")) 0)
  689.          (copyfiles (source "EnvArc:CyberVisionMonitor") (dest "EnvArc:CyberGraphics") (infos) (optional nofail) )
  690.       )
  691. )
  692.  
  693. (if (< (exists ("EnvArc:CyberGraphics/A2410Monitor")) 1)
  694.       (if (> (exists ("EnvArc:A2410Monitor")) 0)
  695.          (copyfiles (source "EnvArc:A2410Monitor") (dest "EnvArc:CyberGraphics") (infos) (optional nofail) )
  696.       )
  697. )
  698.  
  699.  
  700. ;********************************************************************************
  701. ;  Update the Monitor file ..
  702. ;********************************************************************************
  703. (procedure backupmonitorp
  704. ;*** Ask to Backup Monitor file
  705. (set #monbackup (cat "Do you wish to Backup\n\n'Devs:Monitors/" #BOARD "'") )
  706.  
  707. (if (= @language "deutsch")
  708.   (set #monbackup (cat "Wollen Sie die Sicherung von\n\n'Devs:Monitors/" #BOARD "'"))
  709. )
  710.  
  711. (set monbackup (askchoice (choices (cat #YesBackup #monitorfile) (cat #NoBackup #monitorfile) )
  712.                        (prompt #monbackup)
  713.                            (help #monbackup)
  714.                       (default 0)
  715.            )
  716. )
  717.  
  718. (if (= monbackup 0)
  719.  (
  720.    
  721.  
  722.    ;(if (= back 0)
  723.       (set BackDirText (askdir (prompt #wherebackmon)
  724.                            (help   #wherebackmon)
  725.                                (default whereback)
  726.                )
  727.       )
  728.    ;)
  729.  
  730.  
  731.    ;(set BackDirText whereback)
  732.    (if (< (exists (BackDirText)) 1)  (makedir (BackDirText) (infos))  )
  733.  
  734.    (if (< (exists (tackon BackDirText "devs")) 1)
  735.               (makedir (tackon BackDirText "devs") (infos))
  736.    )
  737.    (if (< (exists (tackon BackDirText "devs/monitors")) 1)
  738.               (makedir (tackon BackDirText "devs/monitors") (infos))
  739.    )
  740.  
  741.    (if (> (exists (cat "Devs:Monitors/" #BOARD)) 0)
  742.      ( (working #gettingsum) (set sum (getsum (cat "Devs:Monitors/" #BOARD)) ) )
  743.    )
  744.  
  745.    (if (< sum 0) (set sum (* sum -1)) )
  746.  
  747.    (if (> (exists (cat "Devs:Monitors/" #BOARD)) 0)
  748.                      (copyfiles (source (cat "Devs:Monitors/" #BOARD)) (dest (tackon BackDirText "devs/monitors"))
  749.                        (infos)
  750.                        (newname (cat (tackon BackDirText "devs/monitors/") #BOARD "." sum))
  751.                      )
  752.    )
  753.  
  754.  
  755.    (message (cat "\n" (tackon BackDirText "devs/monitors/") #BOARD "." sum
  756.                  "\n\n" #hasbeen "\n\n" (tackon BackDirText "devs/monitors")
  757.                  "\n\n" #filesum
  758.             )
  759.    )
  760.  
  761.    (set boardback (cat (tackon BackDirText "devs/monitors/") #BOARD "." sum))
  762.  
  763.  )
  764. )
  765.  
  766. ); **END of backupmonitorp procedure
  767.  
  768.  
  769.  
  770. (procedure whatboardp
  771.  
  772. (set board (askchoice (choices "Picasso II / Picasso II+" "Spectrum" "Piccolo" "Domino"
  773.                                "Retina Z3 BLT" "Piccolo SD64" "CyberVision64"
  774.                                "A2410" "DraCoAltais"
  775.              (prompt #whatboard)
  776.                      (help "Select a Gfx Board")
  777.                    (default #BGuess)
  778.                  )
  779.           )
  780. )
  781.  
  782. (if (= board 0) (set #BOARD "Picasso") )   (if (= board 1) (set #BOARD "Spectrum") )
  783. (if (= board 2) (set #BOARD "Piccolo") )     (if (= board 3) (set #BOARD "Domino") )
  784. (if (= board 4) (set #BOARD "RetinaZ3") )    (if (= board 5) (set #BOARD "PiccoSD64") )
  785. (if (= board 6) (set #BOARD "CyberVision") ) (if (= board 7) (set #BOARD "A2410") )
  786. (if (= board 8) (set #BOARD "DraCoAltais") ) (if (= board 9) (set #BOARD "Merlin") )
  787.  
  788.  
  789.  
  790.  
  791. (set #updated 0)
  792.  
  793. (if (= board 0) 
  794.   (
  795.     (backupmonitorp)
  796.     (set #Update (run "Updaters/UpdatePicassoII devs:monitors/Picasso") )
  797.     (if (= #update 0) (message (cat #updatecorrect "\n" boardback )) ) ;
  798.     (if (= #update 5) (message (cat #updatePD (tackon BackDirText "devs/monitors/") #BOARD ".backup") ) )
  799.     (if (= #update 10) (message #updateBad) )
  800.     (set #updated 1)
  801.   )
  802. )
  803.  
  804. (if (= board 1)
  805.   (
  806.     (backupmonitorp)
  807.     (set #Update (run "Updaters/UpdateSpectrum devs:monitors/Spectrum") )
  808.     (if (= #update 0) (message (cat #updatecorrect "\n" boardback )) ) ;
  809.     (if (= #update 5) (message (cat #updatePD (tackon BackDirText "devs/monitors/") #BOARD ".backup") ) )
  810.     (if (= #update 10) (message #updateBad) )
  811.     (set #updated 1)
  812.   )
  813. )
  814.  
  815. (if (= board 2)
  816.   (
  817.     (backupmonitorp)
  818.     (set #Update (run "Updaters/UpdatePiccolo devs:monitors/Piccolo") )
  819.     (if (= #update 0) (message (cat #updatecorrect "\n" boardback )) ) ;
  820.     (if (= #update 5) (message (cat #updatePD (tackon BackDirText "devs/monitors/") #BOARD ".backup") ) )
  821.     (if (= #update 10) (message #updateBad) )
  822.     (set #updated 1)
  823.   )
  824. )
  825.  
  826. (if (= board 3) (message #updateNoUpdate) ) 
  827.  
  828. (if (= board 4) (message #updateNoUpdate) ) 
  829.  
  830. (if (= board 5)
  831.   (
  832.     (backupmonitorp)
  833.     (set #Update (run "Updaters/UpdatePiccoSD64 devs:monitors/PiccoSD64") )
  834.     (if (= #update 0) (message (cat #updatecorrect "\n" boardback )) ) ;
  835.     (if (= #update 5) (message (cat #updatePD (tackon BackDirText "devs/monitors/") #BOARD ".backup") ) )
  836.     (if (= #update 10) (message #updateBad) )
  837.     (set #updated 1)
  838.   )
  839. )
  840.  
  841.  
  842. (if (= board 6) (message #updateNoUpdate) ) 
  843. (if (= board 7) (message #updateNoUpdate) )
  844. (if (= board 8) (message #AltaisMon))
  845. (if (= board 9) (message #updateNoUpdate) )
  846.  
  847. ); **END of whatboardp
  848.  
  849.  
  850. (while (= NoBoard 0)
  851.   (whatboardp)
  852.   (set NoBoard (askchoice (choices #yes1 #no1)
  853.                           (prompt #boardmore)
  854.                           (help   #boardmore)
  855.                           (default 1)
  856.                )
  857.   )
  858. )
  859.  
  860. ;********************************************************************************
  861. ;  Tools to install
  862. ;********************************************************************************
  863. (set ToDo1      (askoptions (choices #cyberprefsx #CyberBackUp-UnInstall)
  864.                 (prompt #tools)
  865.                 (help #tools)
  866.                 (default 7)
  867.         )
  868. )
  869.  
  870. (if (IN ToDo1 0)
  871.       (
  872.         (set CyberDrawer (askdir (prompt #Where #wherecpx)
  873.                (help   #Where #wherecpx)
  874.                (default CyberDrawer)
  875.                  )
  876.         )
  877.  
  878.         (if (> (exists (tackon CyberDrawer "CyberPrefsX") ) 0)
  879.            (
  880.               (set vernum1 (getversion (tackon CyberDrawer "CyberPrefsX")))
  881.               (set ver1 (/ vernum1 65536))
  882.               (set rev1 (- vernum1 (* ver1 65536) ) )
  883.  
  884.  
  885.               (copyfiles (source (tackon CyberDrawer "CyberPrefsX"))
  886.                          (dest CyberDrawer) (infos)
  887.                          (newname (cat "CyberPrefsX" ver1 "." rev1))
  888.               )
  889.  
  890.  
  891.  
  892.            )
  893.          )
  894.  
  895.         (copyfiles (source "Tools/CyberPrefsX")  (dest CyberDrawer) (infos) (optional "force" "askuser" "nofail"))
  896.  
  897.       )
  898. )
  899.  
  900.  
  901. (if (IN ToDo1 1)
  902.       (
  903.         (set CyberDrawer (askdir (prompt #Where #wherebackupU)
  904.                (help   #Where #wherebackupU)
  905.                (default CyberDrawer)
  906.                  )
  907.         )
  908.  
  909.         (if (> (exists (tackon CyberDrawer "CyberBackUp-UnInstall") ) 0)
  910.            (
  911.               (set vernum1 (getversion (tackon CyberDrawer "CyberBackUp-UnInstall")))
  912.               (set ver1 (/ vernum1 65536))
  913.               (set rev1 (- vernum1 (* ver1 65536) ) )
  914.  
  915.  
  916.               (copyfiles (source (tackon CyberDrawer "CyberBackUp-UnInstall"))
  917.                          (dest CyberDrawer) (infos)
  918.                          (newname (cat "CyberBackUp-UnInstall" ver1 "." rev1))
  919.               )
  920.  
  921.  
  922.  
  923.            )
  924.          )
  925.  
  926.         (copyfiles (source "Tools/CyberBackUp-UnInstall")  (dest CyberDrawer) (infos) (optional "force" "askuser" "nofail"))
  927.  
  928.       )
  929. )
  930.  
  931. ;*******************************************************************
  932. ;  END
  933. ;*******************************************************************
  934.  
  935. (if (> (exists ("c:multiview")) 0) (set #mpath "c:") )
  936. (if (> (exists ("sys:Utilities/multiview")) 0) (set #mpath "sys:Utilities") )
  937.  
  938. (run (cat "run " #mpath "/multiview docs/Changes.txt") )
  939. (delete "ram:lan")
  940. (set @default-dest "sys:")
  941.  
  942. (set #done "Update Complete!")
  943. (if (= @language "deutsch") (set #done "Update fertig!") )
  944.  
  945. (exit #done)
  946.